52 


w 


Assembler/Editor cold start 37^3 
Assembler warm start 3782 
Input a character 36 BD 
Output a character 3&D3 
Carriage return 3^D1 
Bell 376C 
Exit to APPLE monitor 377C 


The last memory location actually used by the ARESCO Assembler/ 
Text Editor is $37A2. Within the assembler/editor, all charac¬ 
ter data is in true ASCII code, not the quasi-ASCII normally 
used for APPLE I/O. 


Source Text Format 

Source Text is stored in APPLE memory in standard ASCII. Each 
line of text stored in memory begins with the two byte line 
^ number in BCD, and is stored in high-order, low-order byte 

sequence; not as low, high. Each line is terminated with a 
OD (carriage return). The end-of-file mark is IF following 
the final OD. 


For More Information 

A complete, commented listing of the original ARESCO Assembler/ 
Text Editor for 6502 based microsystems is available from ARESCO 
for $20.00. The original version does not contain some of the 
minor patches which have been added to the package over the 
past three years. 

ARESCO also publishes the Rainbow , a newsletter devoted exclu¬ 
sively to APPLE II owners. See the last page of this document 
for subscription information. 



APPENDIX B 
Sample Runs 


A disassembled listing of a subroutine to "click" the APPLE'S 
speakers was published in the ARESCO Rainbow in January, 1979- 
( See Basic Music & Sound Effects . Issue 1, Volume 1, page 17 •) 

A greater segment of the program from which that subroutine was 
taken is used here to illustrate the operation of the ARESCO 
Assembler/Text Editor Package For The APPLE II. 

First, the Editor portion of the package is entered and the 
program is listed. The assembler is called, and the program 
is listed during assembly. The asterisks in lines 110, 120, 
and 130 indicate the space reserved for forward references. 

In the later disassembly, the addresses referenced are present, 
followed by an EA (NOP) instruction. 

After the modifications for the two-pass version of the assembler 
have been made, the editor is again entered, and the assembler 
is called. The asterisks are still present, and spurious errors 
have been generated. 

The errors are ignored, and the assembler is entered at $3782 
for the second pass. Now the forward references are properly 
calculated and the asterisks replaced. Again, the resulting 
machine code is shown, then disassembled using the APPLE'S 
resident disassembler. Notice the absence of the EA instruction 
in the branch instructions in the two-pass assembler version. 


Sample Editor Run 


12321 


Start the Editor 


BfiSE=$22S 
H OR 0?0 

A 

m 4147 0818 
U 


Text starts at $4000 
Specify old file 
Status 

Print out the file 


8810 TO GBERfiTE TONES 

9020 *=$800 
0838 PITCH *=*+! 

8040 LONS. *=*+1 

0858 CLICK = $0030 ; CLICK SPERKER 
0068 MBIT = JFCB8 ; DELfiV 5.8. 

0078 ENTRY LDfi CLICK j HRKE CLICK 

0088 LDfi PITCH 

0098 J5R miT 

8108 m LONGL 

8118 HE LOOP 

0128 DEC LON® 

808 BEQ END 
8140 LOOP DEC LONS. 

0158 JHP ENTRY 
8168 0® RTS 

8170 LfflGH. 87TE 88 ;PURRTIOH HI BVTE 
0188 .END 


Ask for assembly 
Single-pass version 


fi 

ASE5C0 

USE i LOC CODE LISE 

8818 8288 SUBROUTINE TO GESERflTE TONES 


8828 8288 


♦=1800 

Set origin 

8838 8880 

PITCH 

♦=♦+1 

Reserve space 

8848 8801 

LONGL 

♦=♦+1 

8838 8802 

click 

= IC838 

i CLICK SPEAKER 

8868 0882 

WIT 

= SECTS! 

• DELflY SIB. Define subroutines 

88?8 8882 flD 38 C8 

ENTRY 

LDfi CLICK 

i HFKE aiCK 

8808 8885 fD 88 88 


LDfl PITCH 


8898 8888 28 88 FC 


JSRMRIT 


8108 8886 ® 01 88 


LDfl LONGL 


8110 880E 00 •* ** 


8NE LOOP 


0128 8811 CE «* « 


DEC LONGH 

Forward references 

8138 0814 F8 « ** 


8ES ESC 


m 0817 CE 81 08 

LOOP 

DEC LONS. 


0158 08JA « 82 98 


■JSF ENTRY 


8168 081D 68 

ESB 

RTS 


8178 801E 88 

LQH5H 

.BYTE 08 

;DURATION HI BYTE 

8188 8S1F 


.ESC 



ERRORS = 0800 

SVBBOL TRBLE 

PITCH 8888 LONS. 8881 CLICK C838 HfilT FCflS 

ENTRY 8882 LOOP 881? L0N8S 881E ESP 88115 


E» OF RSSESBLY 


Show results 




*880. fflLF 



88*- *88f®38C8f®*08 

8888- 

28 88 FC HP 81 * 00 07 

8818- Efi CE IE 88 F8 0? Efi CE 

0318- 

81 88 4C 82 88 68*fi8 

*888.81FL 



98*- 

* 

BRK 


0*1- 

* 

BBC 


8882- 

f® 38 C8 

LDfl 

$C838 

0885- 

flD 80 88 

LDfl 

$8*8 

6888- 

28 R8 FC 

JSR 

$FCfl8 

88*- 

f® 81 88 

LDfl 

$8881 

88*- 

D8 87 

K 

$881? 

8818- 

Efi 

HOP 


8811- 

CE IE 88 

DEC- 

$881E 

0814- 

F8 87 

BED 

$8810 

8816- 

Efi 

HDP 


8817- 

CE 81 88 

DEC 

$8*1 

8818- 

C * 88 

JfP 

$8*2 

881D- 

* 

FT5 


881E- 

* 

m. 



Disassemble the code 
with the APPLE monitor 


Generated by forward references 
in branch instructions 
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Sample Run 

*37436 

Bfg=4gg} 

NOP Q?g 

48® 4147 Wifi 
fl 


FRESCO 

US* LX COPE 

8018 0208 
0820 0280 
8838 8888 
8848 8881 
0858 8882 
0850 0802 

8878 8882 fS? 38 C8 
08® 8885 AP®® 
88® 8883 28 fl8 FC 
81® 8866 AD 81 88 
0110 080E ** ** 

8128 8818 CE ** ** 
8138 0812 n u 
***ERR0R * 84 PC = 
8148 8815 CE 81 88 
@158 @818 4C 82 88 
*«ERR0R I 04 PC = 
0168 881B 68 
8178 881C ® 

81® 881P 


Using The Two-Pass Modification To The Assembler 


Enter The Editor 


Assemble pass one 


LINE 


;SUBR0UTI!£ TO (BERATE T0f£S 
*=5888 
PITCH *=*+1 

LONS. *=*+1 

CLICK = IC838 ; CLICK SPEPKER 

BIT = *FCRB i DELRV SIR 

ENTRY LDfl CLICK ; WE CLICK 

LDR PITCH 
JSR WRIT 
LDfl LONGL 
BHE LOOP 
DEC LON® 

BE0 EM) 



LONGH .BYTE® ;DURATIONH! BYTE 

.EM) 


Ignore the 


errors 


ERRORS = ®?2 
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w 

SffiOLTflBLE 

FITCH 8886 LONS. 8881 CLICK C838 «HT FCR8 

ERIRV 8882 LOOP 8815 LGNBI 881C EH> 8818 


m of fissesLY 

* 37826 : Start pass two 

FRESCO 

Lift! LOG CODE LDE 


8810 8810 

; SUBROUTINE TO ©£RH!E TONES 

0828 8810 


*=$808 


0038 0880 

PITCH 



0040 8881 

LONS. 

*=*tf 


8050 8802 

CLICK 

= $C838 

; CLICK SPEAKER 

0888 8882 

HRIT 

1 IECR8 

; DELflV SUB. 

8870 8882 fl? 38 C8 

EHTRV 

LDft CLICK 

; m. CLICK 

0888 8885 flD 88 88 


LDfl PITCH 


0898 8888 28 «8 FC 


J5R MBIT 


8188 8888 fiP 81 88 


LOHLONGL 


81i8 088ED8 05 


BNE LOOP 


0128 8818 CE 1C 88 


DEC LONGH 


8138 8813 F8 86 


BEQEH) 


8148 8815 CE 01 88 

LOOP 

DEC LONG. 


8138 8818 € 82 83 


JIP EHTRV 


8168 0818 68 

EH) 

RTS 


8178 831C80 

LONGH 

.BYTE 88 

iDURRTION HI BYTE 

0180 0810 


.END 



Forward references OK 




ERRORS = 8882 


Note that error count is 
not reset after pass one 
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sm Tffii 

PITCH 8888 LONS. 8881 O.ICK. C838 (BIT FCH8 

EKTPV 8882 LOOP 8815 LQNGH 881C EH) 881B 


E» OF RSSEIBLV 


Show results 


8888- 8888f$38C8AD 88 88 
8888- 28R8FC8D8183D885 
8818- CE1C88F8 86CE8188 
8818- 82 88 68 88 68 88 


l 


BR00- 88 


ERK 


8881- 

88 

RRK 


8382- 

38 C8 

LD8 

IC838 

8885- 

88 88 

LDR 

18888 

8888- 

28 88 FC 

JSR 

$FCfi8 

8888- 

flQ 81 88 

LP8 

*8881 

888E- 

D8 85 

BNE 

18815 

8818- 

CE 1C 88 

DEC 

I881C 

8313- 

F8 86 

8E8 

*8818 

8815- 

CE 81 88 

DEC 

*8881 

8818- 

C 82 88 

..Ilf 

*8882 

881B- 

68 

RTS 


881C- 

88 

IKK 



Disassemble the code 
with the APPLE monitor 





BOX 43. AUDUBON. PA 19407 

(215) 631-9052 

The Rainbow is an independent, national newsletter dedicated 
to APPLE II owners. It's published ten times a year (every 
month except July and December) and a subscription includes 
all ten issues of the current volume. 

The Rainbow is a user newsletter dedicated to the non-pro¬ 
fessional computerist. It's the only newsletter to acknow¬ 
ledge the fact that people have to start somewhere before 
they get to be "experts". 

The Rainbow is intended to be an information exchange - you 
can learn about the projects for which other people use their 
APPLEs - and share your own experiences and discoveries. 

Find other APPLE owners in your area - or communicate with 
APPLE owners in other countries. The whole world of APPLE 
users is available to you through the pages of the Rainbow ! 

Send us your name, address, and a check or money order for 
$15.00 (the price includes all ten issues of the current vol¬ 
ume). By return mail, you’ll receive your copy of the Rainbow 
Questionnaire to fill out and return, so we'll know what you 
want to see in the newsletter. If you live outside the USA, 
and don't want to wait the three-to-four weeks required by 
surface (international) mail, include $10.00 for airmail 
postage. Please send us a street address - if we're shipping 
back issues, we ship via UPS - or an additional $0.40 per 
copy for domestic postage. No invoicing. Sorry. 

Please ship me all the back issues of this volume, and enter 
my subscription for the current volume of The Rainbow. I en¬ 
close payment in full, including postage if required. 

NAME__ 

ADDRESS __ 

CITY, STATE, ZIP_ 

CHECK_/MC/VISA CARD #__ 

If using Master Charge, we need the other 4 digits on the card 

_ EXP DATE_SIGN 


Mail tos THE RAINBOW * P.0. BOX 43 * AUDUBON * PA * 19407 









































































































































































